— 
— Fe 
pi a be 


I 
I 
I 


Gt bat bens feet Bs Be Peg Ds bt bn Ba Bn Gs bs Be Pn Be a GB 


st bs bt Os be bs be Os ae es be be be he bas a eh 
bs bt be be be ne bs bs bn bt be he be be Be be be Bs hs 


Ot ne Oe 
ob 
2 be 


Bene Ret bene 
bas be 
a me 


000000000 
000000000 
000000000 
000 000 
000 000 
000 000 
009 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000000000 
000000000 
000000000 


UUU UUU 
UUU UUU 
UUU UUU 
YUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 

UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


UUUUUUUUUUUUUUU 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PP 


P 

PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


XFS 


a 
— 
ke 
we 
2 
y 
« 
* 
=) 
-_ 
* 
2 
ah 
J 
_ 
A 
. 
o 


ecacae aa 

eaeaca cae 
ca cc ca 
aa ca coe 
a4 aeaca 
ca cace 
ca an 
ag cc 
@Qaancacacacacaca 
@waancaacaacacacacca 
tut du 
uu jeeaeey 
Ak ka usu 
uuu uu A 
wud Ma kk Ak kD 
ear) wu lu 
uous duu wus 
uous usu bk 


UI a 
WW sd a a sd 


a 

ka ok 

Aa kek 
a be 
A oe 
a kk te 
oe ee ba 
te Ae Ke 


SS eS ee Se 
tk kk kk kk kk kkk hk tk 


kk 

a 

he ke be 
toh ke ke 
ha be A 
tA he 
hae be he 
Mh GA hee tk 


LLLLLLLLLL AA 
LLLLLLLLLL AA 


nw Munn 
“wn mMmnnm 
wn nw nn 
wn wn “wn 
nw “nn nw 
nw nn nw 
wn nn nn 
nn nn nn 
wunnn wn 
MMnn nm 
= ee 


Cie ee 
Ce iem) ee 
—) 
—_) 
—_) 
—_) 
— 
yuo 
i 
a4 
ee 
Saad ststtsdts sss ss 


0 


Page 


16-SEP-1984 01:44:42 VAX/VMS Macro v04-00 


? 


able of contents 


,PAseuF FER 


MPTY AST HANDLER 
RRUN_AST HANDLER 
E_AST HANDLER 

TO INDEX 


ee ee ee 


1 7 
LPASBUFFER 16-SEP-1984 01:44:4 AX/VMS Macro V04-00 Page 
¥04=000 3Eb= 1982 1:93:19 UTOSUP. sRe LABUFFER.MAR; 1 . 
-TITLE LPASBUFFER 
- IDENT 1y0e=000" 


SRAAAAAAEAAAE AEE EAE AAAAAAAAAAAAAAAAAAAREAAAAAAAREEAEAEEEAAREEAAAAAETE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sore 
ONLY R TH R SUCH C 


:* & 
:* * 
-* * 
sf * 
;* * 
;* oT 
:® ® 
** * 
** 0 e 
;* SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:# TRANSFERRED. : 
*@ ® 
# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:® & 
:® * 
:* ® 
:* ft 
:® * 
** a 
:® ® 
® © 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


COOOCCOCOOOOCOOCOOOCOOOOOOOOCOoO 
SOOoooQooQoQoooQoQoQoooooooooooo 
eee ee epee lf elefolololeleolololololololeoleo) 
pole lela lele lolol elo ol el alo alol ole lololololo loro) 


; 
° 
° 
4 
° 
° 
4 
° 
e 
e 
° 
° 
° 
4 
° 
4 
° 
° 
° 
’ 
° 
; LABRARAAAAARAASASAAASALLALE SAREE SELESESELAS ASRS ALES ERE S SSSR SESE REAR ERASED SE OS 
: 


s+ 
; FACILITY: LPA-11 PROCEDURE LIBRARY 


ABSTRACT: 
THIS MODULE CONTAINS THE ROUTINES WHICH MANIPULATE BUFFERS 
: AS PART OF THE LPA-11 PROCEDURE LIBRARY. THIS INCLUDES THE 
; AST ROUTINES. 

ENVIRONMENT: USER MODE, SHARED OR NON-SHARED LIBRARY 
AUTHOR: STEVE BECKHARDT, CREATION DATE: 28-AUG-78 
: MODIFIED BY: 


v03-001 $8L3001 Steven B. Lion 


el 30-March-1982 
Change module name to LPASBUFFER. 
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47 LSBTTL DECLARATIONS | 
e | 
‘3 ; INCLUDE FILES: 
Re: | 
p : t MACROS: 
4; 
a9 $6 : | 
2 3 EQUATED SYMBOLS: | 
3 60 ; 
0 61 : OWN STORAGE: 
$00 gS 
0000009 64 -PSECT _LPASCODE,PIC,SHR,EXE,NOWRT,LONG 
0000 66 
9000 67 LPASBFSTART:: : START OF BUFFER ROUTINES (MAY BE 
000 68 ; USED TO LOCK THESE ROUTINES INTO | 
0000 «69 : THE PROCESS" S WORKING SET). 


V 


LPASBUFFER P-1984 . 
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1 1:44:46 Pa | 
LPASIBFSTS = GET BUFFER STATUS Breer oke Oi skoit PiSUe smeicaaurres mans: 2% ¢%) 


; IMPLICIT INPUTS: 
VARIOUS FIELDS IN THE IBUF ARRAY 


Wow .SBTTL LPASIBFSTS = GET BUFFER STATUS 
§ t FUNCTIONAL DESCRIPTION 
8 5 THIS ROUTINE RETURNS THE STATUS OF EACH OF THE BUFFERS. 
$ THE STATUS IS DEFINED AS WHICH QUEUE THE BUFFER IS ON. 
0 5 CALLING SEQUENCE: 
0 0 CALLS/G 
0 ; : INPUT PARAMETERS: 
0 i IBUF (AP) ADDRESS OF IBUF ARRAY 
0 5 ISTAT (AP) ADDRESS OF LONGWORD ARRAY WITH AS MANY 
0 4 ELEMENTS AS THERE ARE BUFFERS INVOLVED 
0 7 IN THE SWEEP 
0 8 
0 9 
0 0 
ei 


; OUTPUT PARAMETERS: 


ISTAT CAP) ADDRESS OF LONGWORD ARRAY WITH AS MANY 
iortte < AS THERE ARE BUFFERS INVOLVED 
IN THE SWEEP, EACH ELEMENT IS FILLED WITH 
THE STATUS OF THE CORRESPONDING BUFFER. 
THE STATUS CODES ARE AS FOLLOWS: 


SOoOQCooOooooooooooooooooo 


SOF FANUINMOCOOCOCOCOCOOCOSOS BOSCO COSCOSCCSOSCOCOOCSOSOOOOOCOOOOOOoOOoOO: 


Sete Se Se Se Se Se Se Ge Se Se Ge Be Se Ge Ge Se Se Se Ge Se Se Ge Se Se Ge Ge Be Ge Se Se Se Se Ge Se Ge Ge Ge Se Ge Se Se Ge Ge Ge 


50 22A6 03 00 EF EXTZV «#0,#3, 1BFSL_CMDTBL+CMT$B_VBFRMASK(R6),RO ; GET HIGHEST BUF. # 


; INITIALIZE ALL ENTRIES IN ISTAT ARRAY TO 0 


CGOCOCOCOCSOOCOOCOCOOOSOOOOSOSOOSOOOSOSOOSOSOSOOCOOOOOOOOOOOCOSOOOOOOOOOO 


0 
0 
9 
0 
00 
00 
3 
00 101 2 BUFFER IS ON ovate QUEUE 
00 1 $ 1 BUFFER IS ON USER E 
00 1 0 BUFFER IS NOT YON ANY QUEVE 
4 : : al BUFFER IS ON INUSE QUEUE 
$8 : $ IMPLICIT OUTPUTS: 
ain 
33 : ? COMPLETION CODES: 
By oat pane oo 
8 : : SIDE EFFECTS: 
8p : § VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 
B33 RE 
005¢ bp : y -ENTRY LPASIBFSTS,“M<R2,R3,R4,R6> 
56 04 AC 00 000 1 ¢ MOVL 4(AP) ,R6 : GET ADDRESS OF IBUF ARRAY 
54 O08 AC DO bo ! 7 MOVL B(AP) .R4 ; GET ADDRESS OF ISTAT ARRAY 
a 
abs 


? 
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6440 D4 19 1 8 10S: CLRL (R4) CROJ 
FA 50 FG 13 ; SOBGEQ RO,10$ 
16 «131 » wee TURN OFF ASTS #e 
uF : $SETAST_S #0 
1F 134 : STORE STATUS FOR ALL BUFFERS ON THE DEVICE QUEUE 
53 DO OO1F 135 MOVL = #2 RS : STATUS = 5 
52. 58 A6 DE 022 136 MOVAL  IBFSL_DEVQFL(R6),R2 : ADDRESS OF DEVICE QUEUE 
1 09 6 f BSBB. —s- FOLLOWa : FOLLOW THE QUEUE 
00 139 ; STORE STATUS FOR ALL BUFFERS ON THE USER QUEUE 
53 07 00 140 BECL ; STATUS = 
52. 50 Ag DE OO2A 141 MOVAL  IBFSL_USROFL(R6),R2 > ADDRESS OF USER QUEUE 
1 10 00 F 148 BSBB. -—Ss- FOLLO@Q : FOLLOW THE QUEUE 
0030 144 ; STORE STATUS FOR ALL BUFFERS ON THE INUSE QUEUE 
3 01 CE 0030 145 MNEGL # ; STATUS = - 
52 60 AB DE 0033 146 MOVAL  IBFS$L_INUQFL(R6),R2 + ADDRESS OF INUSE QUEUE 
OA 10 R14 bt BSBB FOLLO@Q : FOLLOW THE QUEUE 
0039 149 ; se TURN ON ASTS *** 
0039 150 $SETAST_S # 
04 O04¢ 151 RET 
004 13¢ 
gees 
0943 13? > LOCAL SUBROUTINE TO FOLLOW QUEUE AND STORE STATUS IN ISTAT ARRAY 
0043 157 : INPUT: Re CONTAINS ADDRESS OF QUEUE HEAD 
sok: 138 ; R3 CONTAINS STATUS TO STORE IN ISTAT ARRAY 
0043 160 FOLLOWO:° 
51 52 00 0045 161 MOVL _—R2,R1 : COPY ADDRESS OF QUEUE HEAD 
51 61 DO 0046 188 10S: MOVL (R1),R1 : GET ADDRESS OF NEXT LINK 
52. 51—Si=D1si0049Ss«164 CMPL = R11, R2 > BACK TO QUEUE HEAD YET? 
09 13 004C 165 BEQL 208 : YES, DONE 
O1EA 30 O004E 166 BSBW  CVTADINDX > NO, CONVERT ADDRESS TO BUFFER INDEX 
6440 53 DO 0051 167 MOVL R3,(R4)CROJ : STORE STATUS IN CORRESPONING ENTRY 
EF 11 0055 168 BRB 10§ : OF ISTAT AND BRANCH BACK FOR NEXT ONE 
05 0057 169 20S: RSB 


"7 
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i .SBTTL LPASIGTBUF = GET A BUFFER 
+ FUNCTIONAL DESCRIPTION: 

THIS ROUTINE 1S CALLED BY THE USER'S PROGRAM TO GET A BUFF ER 

FROM THE HEAD OF THE USER QUEUE. UNLIKE LPASIWTBUF, THIS ROUTINE 
RETURNS IMMEDIATELY IF THE QUEUE I$ EMPTY. THIS’ ROUTINE Is” YNTENDED 
T0 BE CALLED FROM THE USER'S COMPLETION ROUTINE (WHICH 1S CALLED BY 


THE AST HANDLERS). THIS ROUTINE SHOULD BE CALLED IF TH 
1D pataaamataiatnta WITH A COMPLETION ROUTINE, RATHER THAN with EVENT 


CALLING SEQUENCE: 


CALLS/G 

MAY ALSO BE CALLED AS A FUNCTION 
INPUT PARAMETERS: 

IBUF (AP) ADDRESS OF IBUF ARRAY 

IBUFNOCAP) ADDRESS OF LONGWORD WHICH RECEIVES BUFFER 

INDEX OR -1 WHICH INDICATES NO BUFFER IN QUEUE 

IMPLICIT INPUTS: 

VARIOUS FIELDS IN THE IBUF ARRAY 
OUTPUT PARAMETERS: 


IBUFNO(AP) ADDRESS OF LONGWORD WHICH RECEIVES BUFFER 
INDEX OR -1 WHICH INDICATES NO BUFFER IN QUEUE 


IMPLICIT OUTPUTS: 

OFFSET IBF$Q_10ST IN THE IBUF ARRAY CONTAINS ADDITIONAL STATUS 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 


-ENTRY LPASIGTBUF ,“M<R6> 
MOVL 4(AP) ,R6 ; GET ADDRESS OF IBUF ARRAY 


3 \ 090000900 09 09 09 00 09 00 OD Cd 09 09 OD Gd Od CD OD CD Gd OD CD CD CD CD CD CD. GD CD CD CD CD CD 


56 04 AC 00 


COOOOOCOCOOSOOOSOSOSOOOOOCOOSOOOSOSOOOOOOCOOSOOOO OOOO OOOOOOOOOOOOOOOOOo 
SOOSCCOOCOSSSOSSCS SOC CSOOS SOOO COCOOSCOSOCSOSCSOOCOCSOO OOOO OOOOOOOOOOOOO 
fe et © at Oar oe eg ee Ow eee etal al sh sb Ab Ab ab Ab db ab Ab Ah Ab ah Ab ah Ah db ab ah ah Ab bh ab Ab ah ah Ah dh ah ah dh ah ah ab ah ahead al 
RIPIMINMONINININDS 4 9 9 9 | HM QOOODOODOOOOO OO OOOO OO OWW0000 0900009008 NINN 


NAUSEA 0 OO NAME WIN (OOO NAME WIN | OS OO NAME WWI SOOO NAME WO OD NOU ES win 


POROROROROROROROROROnononononononononononononononononony 


E 
E REMOVE BUFFER FROM HEAD OF USER QUEUE 
51 5086 OF 3 Rema QUE oier $L_USRQFL(R6) ,R1 : Ri GETS ADDRESS OF LINK 
oc 1D BVS $ ; NO ENTRY I 
0104 30 4 aoe CVTADINDX ; CONVERT ADDRESS TO INDEX IN RO 
66 «= B4 7 CLR IBF$Q_10ST(R6) ; gt AR STATU 
02 A6 14 A6~ BO 9 nov Jprst- LBUF F(R6), 1BF$Q_10ST+ (R6) ; STORE BUFFER LENGTH 
07. «(11 E BRB 0$ 
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78 8 
7 10$: USER QUEU RETURN REAL 1/0 STATUS 
66 08 A6 7D 007 0 ova 1e¥$0 lose Re), “1B BFS$Q_10ST(R6) 
50 01 CE rs 1 MNCL } : RETURN =1 
02 6C 91 0077 j 20$:  CMPB  (AP),#2 ; IBUFNO SUPPLIED? 
9 1F OO7A 4 BLSSU F 
51 08 aC D 7 5 MOVL  8(AP),R1 t GET ADDRESS 
1 8 6 BEQL t DEFAULTED 
61 50 00 008 7 MOVL RO, (R1) > STORE INDEX 
04 008 8 40$: RET : INDEX IS IN RO FOR FUNCTION CALL 


LPASBUFFER 
vou=000 


005¢ 

54 01 00 

06 #11 

005¢ 

54 4 

56 04 as DO 
5 D4 

53 08 BC 00 


—_——__- — ——_ — -- -—- ------ 
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086 -SBTTL LPASINXTBF = SET NEXT BUFFER 
? > -SBTTL LPASRMVBUF - REMOVE BUFFER 
? ; FUNCTIONAL DESCRIPTION: 
6 LPASINXTBF CHANGES THE ORDER OF BUFFERS IN THE DEVICE QUEUE 
BY INSERTING THE INDICATED BUFFER AT THE HEAD OF THE QUEUE. 
NOTE THAT THE BUFFER MUST ALREADY BE ON THE DEVICE QUEUE. 
LPASRMVBUF REMOVES A BUFFER FROM THE DEVICE QUEUE. 


; CALLING SEQUENCE: 


CALLS/G 
THESE ROUTINES MAY ALSO BE CALLED AS FUNCTIONS 
INPUT PARAMETERS: 


IBUF (AP) ADDRESS OF IBUF ARRAY 
IBUF NOCAP) ADDRESS OF LONGWORD WHICH CONTAINS INDEX 
OF BUFFER TO BE REMOVED OR MADE NEXT 
IND (AP) ADDRESS OF LONGWORD TO RECEIVE RETURN STATUS 


VARIOUS FIELDS IN THE IBUF ARRAY 
; OUTPUT PARAMETERS: 

IND (AP) ADDRESS OF LONGWORD TO RECEIVE RETURN STATUS 
: IMPLICIT OUTPUTS: 

NONE 
; COMPLETION CODES: 


SSSI DS DS DD DDD DDD TTI BB BB 


= 
AALAND @ OODNA NE WIN 9 OD NAMEN 9 OD NAME WN SO OD NAW EWN O ODNAUE WO 


: IMPLICIT INPUTS: 


SOOCOCOOGOSOOCOOCSOOSOSOSOOSOSOOSOSOOSOOOSCOSOSOSOOSOOOOOOOOCOOOOOOOOOOOOOOOOoOO 
PDXRDPAEDA DAA AAA A AAA AAA AAA AAA AA AA AA AAAS AOA 


SOOCOSOSOCSCSSOSOOSCOSOSOOOCOSOOSCOO OOO SOOO OSCOSCOOOOOOCOOSO OOOO OOOOOOOOCoOO 


Seo ee SSS SSS SSS SSS SSS OOO OOOO OO. 


7? 0 INDICATES THAT THE SPECIFIED BUFFER WAS NOT IN THE DEVICE QUEUE 
1 INDICATES THAT THE SPECIFIED BUFFER WAS REMOVED OR MADE NEXT 
i ; SIDE EFFECTS: 
4 VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 
-ENTRY LPASINXTBF ,“M<R2,R3,R4,R6> 
8 MOVL #1, ; INDICATES WHICH CALL 

: BRB COMMON 

D 8 ENTRY LPASRMVBUF ,“M<R2,R3,R4,R6> 

, 3 CLRL R4 ; INDICATES WHICH CALL 

1 9 

1 93 COMMON: MOVL 4(AP) ,R6 ; GET ADDRESS OF IBUF ARRAY 

$ 2 CLRL R2 ; RETURN CODE 

7 9 MOVL a8(AP) ,R3 ; GET BUFFER INDEX 


vC4 
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ive LPASRMVBUF = REMOVE BUFFER mit Bhi 33i99 1OSUP.SRCILABUFFER.MAR:1 &) 
53 68 A643 2 97 MOVAQ  IBFS$Q_BFRLNKS(R6)(R3],R3; CONVERT TO ADDRESS 
A 38 » wee TURN OFF ASTS eee 
A 0 $SETAST_S #0 
51 S58 AB D a9 ; MOVAL IBFS1 _DEVOFL (R6) .R1 : GET ADDRESS OF DEVICE QUEUE HEAD 
50 51 OD aD ; MOVL R1,R 
NB 05 10S: ; GET NEXT LINK IN QUEUE 
50 60 DO 6OuB 06 MOVL  (RO),RO 
51 0 Di 008 0 CMPL ~—s RO RI ; BACK TO QUEUE HEAD YET? 
1113 H 08 BEQL 308 : YES, BUFFER NOT ON QUEUE 
53 50 v1 008 10 CMPL —s RO, R3 : IS THIS THE BUFFER? 
F312 0086 1 BNEQ 108 : NO 
Oosp i HAVE BUFFER. ADDRESS IS IN RO. REMOVE FROM QUEUE 
50 60 OF 08D 1% REMQUE (RO) ,RO 
0060 316 ; IF LPASINXTBF WAS ENTRY, THEN INSERT BUFFER AT HEAD OF QUEUE. 
04 54 «£9 b0¢0 17 BLBCCéiRR ; BR. IF LPASRMVBUF WAS ENTRY 
58 AG 6060~—i«OE: O0¢3 18 INSQUE (RO), IBFSL_DEVQFL(R6) : INSERT iT HEAD OF DEVICE QUEUE 
52.6 d0¢7 20 20S: INCL ——R2 ; INDICATE SUCCESS 
00¢9 2 30S: ete TURN ON ASTS #e« 
Bak Bpcag PMA at 
50 52 00 oy 325 MOVL 2, RO ; RETURN STATUS 
03 6c 91 9005 326 CPB (4b), #3 IND SPECIFIED? 
51 OC AC 09 OODA 358 MOVL  12(AP),R1 : GET ADDRESS OF IND 
03 13 OODE 329 BEQL 408 : DEFAULTED 
61 50 00 O0E9 0 MOVL _——RO, (R1) : STORE STATUS 
04 OOE3 331 40$: RET 


+ 


<- 
ov 
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: .SBTTL LPASIWTBUF = WAIT FOR A BUFFER 
[FUNCTIONAL DESCRIPTION: 
THIS ROUTINE Is. CALLED BY THE USER'S PROGRAM TO GET A BUFFER 


F 
RATHER THAN WITH A COMPLET 
1) yh a A a! 


) OTHERWISE, TH 


T FLAGS 

N ROUTINE. THIS ROU UTINE DOES THE FOLLOWING: 

F M THE HEAD ER QUEUE. 
N 
E 

) ANOTHER tne 
THE 
L 


ROM D OF THE U U 
T RETURNS WITH THE “BUFFER INDEX. 
NT FLA g IS CLEA 


A 
U 
4) OTHERWISE T a F THE 
OGRESS. oF NOT, THE STATUS. IS RETURNED. 
5) OTHERWISE, WE WA OR THE EVENT FLAG AND THEN GO TO STEP 1. 
NOTE THAT STEP 1 IS ONLY AN O 


EVENT FLAG IF A BUFFER IS ALR 
CALLING SEQUENCE: 


IZATION: IT SAVES CLEARING THE 
AVAILABLE. 


CALLS/G 
MAY ALSO BE CALLED AS A FUNCTION 
INPUT PARAMETERS: 
IBUF (AP) ADDRESS OF IBUF ARRAY 
IEFNCAP) UNUSED (PRESENT FOR COMPATIBILITY 
IBUFNOCAP) ADDRESS OF A LONGWORD WHICH RECEI 
DEX F RE ARE NO BUFFE 
SWEEP HAS STOPPED. 
IMPLICIT INPUTS: 
VARIOUS FIELDS IN THE IBUF ARRAY 
OUTPUT PARAMETERS: 
IBUFNOCAP) ADDRESS OF A mriy ae R 
INDEX OR -1_IF 


E 
THERE ARE NO BU 
SWEEP HAS STOPPED. 


CEIVES BUFFER 
FFERS AND THE 


MEWN (OO ONAU EWN 0 OO VA UE WW 0 OO NOUN EWI OOONOUE WW 


Se Se Se Be Se Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Ge Ge Se Se Se Ge Ge Se Se Se Ge Se Se Se Se Se Se Ge 


IMPLICIT OUTPUTS: 

OFFSET IBFSQ_IOST IN THE IBUF ARRAY CONTAINS ADDITIONAL STATUS 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

VARIOUS FIELDS IN THE IBUF ARRRAY ARE MODIFIED 


sooo 


WNAAANAAA AAA AANA ANAIA AAAI AAAI WIAA AAAI AIAIAI AAAI ANIA AILNINI AINA AAA NAIOIO 


©€90909 0909 09.09 00 00 00 SINNED DD DD DDD DS TTB BS BB BB BB EAA 


WONOULS WMO 


9 


(6). 
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BUFFER "Or eer obe O 


1:44:4 
1:32:1 
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0044 OE 90 .ENTRY LPASIWTBUF, “M<R2,R6> 
36 04 ac DO 0066 39 MOVL 4 (AP),R6 : GET ADDRESS OF IBUF ARRAY 
52 GE AGODA EA 33 MOVZBL IBFSB_EFN(R6),R2 : GET EVENT FLAG BEING USED 
OFE 395 108: REMOVE BUFFER FROM HEAD OF USER QUEUE 
51 5086 OF OEE 9 Remove giBF SL. USROFL(R6),R1 ; ADDRESS IN R1 
31s 1C Fe 3 + HAVE 0 
OF4 399 30S: - USER QUEUE IS EMPTY. CLEAR EVENT FLAG 
OF4 400 SCLREF_S 2 ; CLEAR EVENT FLAG 
1750 €9 OFD ite BLBC ~ RO,40$ + ERROR 
0100 40 TRY AGAIN TO REMOVE A BUFFER FROM HEAD OF USER QUEUE 
51 5086 OF 9100 404 Remave @IBFSL_USROFL(R6) RI ; ADDRESS IN R1 
i iF OIC 9104 405 70$ > HAV 
0106 409 ; QUEUE IS STILL EMPTY. CHECK FOR ERROR OR DONE BEFORE WAITING 
08 AB «6BS «(0106)=—s 408 TSTw | IBF$Q_I0SB(R6) CHECK 1/0 STATUS BLO | 
11. «12 9109 409 BNEQ 50$ : ERROR OR DONE 
0108 411 SWAITFR_S R2 ; SWEEP IS STILL ON SO WAIT | 
07 50 —s«éEB Orig 41g LBS ~RO,10$ : TRY AGAIN 
0117 414 40S: ; ERROR IN CLEARING OR WAITING FOR EVENT FLAG 
66 50 DO 0117 415 MOVL RO, IBF$SQ_I0ST(R6) ; RETURN ERROR CODE IN I/O STATUS 
6 «(11 OIA 416 BRB 60$ 
O11C 418 50$: ; SWEEP FINISHED NORMALLY OR WITH ERROR. RETURN I/O STATUS BLOCK 
66 08 AB 7D 11 419 MOVQ IBF$Q_I0SB(R6), IBF$Q_10ST(R6) 
50 01 CE 0120 421 60$:  MNEGL #1,R0 ; RETURN -1 INSTEAD OF INDEX | 
OA 11 oi 3 4 7 RB 80$ | 
0125 424 70$: HAVE A BUFFER ADDRESS IN R1. CONVERT TO INDEX IN RO 
0113. 30 0125 425 sBw  CVTADIN NOX 
66 B4 0128 436 CLRW iprso. | OST(R6) ETURN 0 STATUS 
02 A6 14 a6 BO 12h Ae? MOVW  IBFSLLBUF(R6),1BFSO_ 1ost+otRe) ; RETURN BUFFER LENGTH 
6c 91 O13 429 80$:  CMPB  (AP),#3 : IBUFNO SPECIFIED? 
09 Ff 0132 430 BLSSU 9 > NO 
51 OC AC DO 0134 431 MOVL 12(AP),R1 : GET ADDRESS OF IBUFNO 
03 13 0138 43¢ BEQL > DEFAULTED 
50 «(00 134 43 MOVL _——RO, (R1) > STORE INDEX IN IBUFNO 
04 0130 434 90$: = RET : INDEX IN RO FOR FUNCTION CALL 
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LPASRLSBUF = RELEASE BUFFER -SEP=19 1OSUP. SRCJLABUFFER.MAR; 1 7) 
| : 4 $ oe .SBTTL LPASRLSBUF = RELEASE BUFFER 
; 4 8 : FUNCTIONAL DESCRIPTION: 
13— 6440: THIS ROUTINE IS CALLED BY THE USER'S PROGRAM TO RELEASE A BUFFER 
136 441: (OR BUFFERS) ONTO THE DEVICE QUEUE. IT WORKS AS FOLLOWS: 
13€ 44g : 1) EACH BUFFER INDEX IS CONVERTED TO AN ADDRESS 
13— 443: 2) IF THE USW IS NOT CURRENTLY SET WITH A NEXT BUFFER INDEX 
13— 444: THEN IT IS LOADED WITH THIS BUFFER'S INDEX AND THE BUFFER 
136 445: IS INSERTED ON THE TAIL OF THE INUSE QUEUE. 
13€ 44g : 3) OTHERWISE, THE BUFFER IS INSERTED ON THE TAIL OF THE 
13— 0447: DEVICE QUEUE. 
13— 9448: IF BUFFER OVERRUN IS NON-FATAL, THEN BUFFER 0 IS HANDLED AS A 
O13E 4449: SPECIAL CASE. INSTEAD OF BEING INSERTED ON THE DEVICE QUEUE, 
O13E 450 : A FLAG IS SET. If THIS FLAG IS NOT SET WHEN BUFFER OVERRUN OCCURS 
O13E «451: THEN THE LPA-i1 HAS USED BUFFER 0 BEFORE IT HAS BEEN RELEASED 
O13 43¢ : THIS IS RETURNED AS A DOUBLE BUFFER OVERRUN ERROR. 
O13 454 : CALLING SEQUENCE: 
013—E 455; 
O13E 4-456: CALLS/G 
O13 457; 
013— 458 : INPUT PARAMETERS: 
O13E 459; 
O13E 460: IBUF (AP) ADDRESS OF IBUF A 
O13E 40461: IND (AP) ADDRESS OF TONGWORD to STORE RETURN STATUS 
O13 46 : NO (AP) ADDRESS OF LONGWORD CONTAINING BUFFER INDEX 
Q13E «464: : 
O13 465 : N7 (AP) ADDRESS OF LONGWORD CONTAINING BUFFER INDEX 
013 467 : IMPLICIT INPUTS: 
O13E 9468: 
O13E 49469: VARIOUS FIELDS IN THE IBUF ARRAY 
O13E 470: 
O13E 47) : OUTPUT PARAMETERS: 
Oise crs : IND (AP) ADDRESS OF LONGWORD TO RECEIVE RETURN STATUS 
013— 475 : IMPLICIT OUTPUTS: 
O13E 476; 
O13E 0477: NONE 
O13E «478: 
O13E 479 ; COMPLETION CODES: 
O13E 481: 0 INDICATES ILLEGAL BUFFER NUMBER, INCORRECT # OF ARGS, 
013€ 48¢ : OR DOUBLE BUFFER OVERRUN OCCURED (THE LAST CASE CAN 
O13E 4483 : ONLY OCCUR IF BUFFER OVERRUN IS NON-FATAL AND BUFFER 0 
01 — 484: WAS RELEASED). 
or E 485 : 1 INDICATES BUFFER(S) SUCCESSFULLY RELEASED 
O13 48? > SIDE EFFECTS: 
; E iss t VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 
13—E 491 i-- 
O13E 492 


6 8 
LPA FER 16-SEP-1984 01:44:64 AX/VMS M v04-00 Pp 1 LP 
rivaeestir4 8} 95:44 t rath ege $) 


LPASRLSBUF = RELEASE BUFFER -SEP-1984 IOSUP.SRCILABUFFER.MAR; 1 ( Tal 
005¢ 13 493 .ENTRY LPASRLSBUF,“M<R2,R3,R4,R6> 
52 04 0140 495 CLRL. = R2 ; RETURN CODE 
53 6C) (OOM «(014249 MOVZBL (AP),R3 + GET # OF ARGUMENTS 
56 04 AC «20 0145) 49 MOVL 4 (APS,R6 : GET ADDRESS OF IBUF 
54 0C AC «ODE «(0149 498 MOVAL 12(APS,R4G t POINT TO FIRST BUFFER INDEX ARG 
5303) «(C2 O014D 49 SUBL. s# R3 : GET # OF BUFFERS TO REL 
07 3 D1 13 200 CMPL) RB # + COMPARE WITH MAXIMUM 
FoO1A 015 201 BGTRU 60$ : TOO MANY OR TOO FEW ARGS SUPPLIED 
155 268 20$: ; RELEASE NEXT BUFFER 
50 94 09 133 204 MOVL  a(R4)+,RO : GET INDEX 
10 1 0138 205 BNEQ  25$ : NOT BUFFER 0 
015a 507 ; HAVE BUFFER 0. IS OVERRUN NOT FATAL? 
0B 20 A6 17—~«*€1 015A 208 6BC #LASV_BFROVRN, IBFSL_CMDTBL(R6) ,25$ : BR. IF NO | 
015F 510 BUFFER OVERRUN IS NOT FATAL AND THIS IS BUFFER 0. | 
CA6 10 AB O15F 511 Bisw we LG_M_BFRORLSD, IBFS$W_FLAGS(R6) ; SET BUFFER 0 RELEASED FLAG | 
27 4C AB «O0S:-sC«ESSsO0163 318 BBCC —#FLG_V_DBFROVRN, IBF $W_FLAGS (R6 ) 508 IF NO DBL BFR OVRN 
2a 0168 313 BRB 60$ ~ Moe ouscE purrER’ OVERRUN OCCURRED 
016A 515 25$: i VERIFY BUFFER # IS WITHIN RANGE 
03 00 ED O16A 516 CMPZV #0, #3,- ARE WITH HIGHEST BUFFER # ALLOWED | 
50 22 Ab 0160 517 IBF S$L_CMDTBL+CMT$B_ VBFRMASK (RG) of 
22 «1F #0170 518 BLSSU 608 SUPPLIED INDEX IS TOO HIGH - ERROR 
51 68 A640 7E O17¢ 319 MOVAQ  IBFSQ_BFRLNKS(R6)CROJ,R1: GET ADDRESS OF BUFFER LINK 
0177 521 ; SHOULD WE RELEASE THIS BUFFER ONTO DEVICE QUEUE OR ONTO 
0177 3¢@ INUSE QUEUE AND LOAD U 
OF 4C AG 600 «22 «20177~—s«&5 2 bp BSS #FLG_V USWSET. IBF Su FLAGS(R6),30$ _; BR. IF USW IS ALREADY SET | 
0A 48 AG) «(OOE—C#‘OD gi7¢ 32h Wee TaFSu. USW(R6).30$ : BR. IF REQUEST IS BEING STOPPED 
0181 526 INSERT ONTO TAIL OF INUSE QUEUE AND LOAD USW 
64 B6 61 OF 0181 387 iNSQUE (R1),@1BFSL_INUQBL (RO) ; INSERT ONTO TAIL OF INUSE QUEUE 
49 A6 650) «—90 «0185 )=Sss«528 MOVB RO, IBF $W_US@+1(R6) : LOAD NEXT BFR INDEX AND CLEAR DONE BIT 
06 11 0189 369 50$ 
0188 530 
0188 531 30S: : INSERT BUFFER ONTO TAIL OF DEVICE QUEUE 
5C B6 «0O61—Ss«OOE: 0188 33¢ INSQUE (R1),@I1BFSL_DEVQBL(R6) | 
C353 F4 O1B8F 534 50$: SOBGEQ R3,208 : DO NEXT 
526 0192 535 INCL  R2 : INDICATE OTICCESS 
50 08 AC 09 $186 é $ 60$ MOVL  8(AP),RO : GET ADDRESS OF IND 
03 13 0198 538 BEQL 708 > DEFAULTED 
60 52 D0 019A 539 MOVL _——R2, (RO) : STORE RETURN STATUS 
04 0190 540 708: RET 
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Res .SBTTL LPASSBFRAST = BUFFER FULL/EMPTY AST HANDLER 
44 : FUNCTIONAL DESCRIPTION: 


Lfaseurrer 1 
v04= LPASSBFRAST = BUFFER FULL/EMPTY AST HAND 


THIS ROUTINE IS THE AST HANDLER FOR NORMAL BUFFER FULL OR 
EMPTY ASTS. PRIMARILY IT DOES THE FOLLOWING: 
1) REMOVE A_ BUFFER FROM HEAD OF eeu Ce QUEUE 
$} LOAD THAT BUFFER'S INDEX INTO THE 
) INSERT THAT BUFFER INTO TAIL OF INUSE QUEUE 
4) REMOVE A BUFFER FROM HEAD OF INUSE QUE 
5) INSERT THAT BUFFER INTO TAIL OF USER QUEUE 
CALLING SEQUENCE: 
CALLS/G 
INPUT PARAMETERS: 
7 + al ADDRESS OF IBUF ARRAY (AST PARAMETER) 
(AP) SAVED RO (UNUSED) 
12¢AP) SAVED R1 (UNUSED) 
16 (AP) SAVED PC (UNUSED) 
20(AP) SAVED PSL (UNUSED) 


IMPLICIT INPUTS: 
VARIOUS FIELDS IN THE IBUF ARRAY 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 


-ENTRY LPASSBFRAST, “M<R6> 


DODDS PPP FS OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOONO 
FW O OONOA NE WIN 9 OD NOU EWN 0 ODNOAOU EWN OC OONOAUE WN OO@ 


NMNMNIM OF ROOMMMMMMMMMMMMMMMMmMmMmMmMmMMMMmMmMmmMmMmMmMmMmmmmmmmmmmmemmmerm©, 


NNN annette cree ee 


et Na PAO Oo tet tt te tet PRP PTR RR ON RS Oe A te te et ae 
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1 
1 
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1 
1 
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1 
1 
1 
1 
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COOOOCOCOCOCOCOOOCOCO COCO OCOOCOOOOOOC COCO COOCOCCOCOOOOOCOCOCOOCOOOOOOOOOOoOOo 


MOVB #°x40, IBF SW 
BRB 40$ 


o 
co 


56 04 AC 00 MOVL  4(AP),R6 ; GET ADDRESS OF IBUF 
27 48 A6 OF £0 BBS #14, IBF SW_USW(R6) ,4 BR. IF STOP BIT SET IN USW 
4C A602 «ED BBC #FLG V eurbe ns tatsy USFLAGS(RE) 16s : F NOT COUNTING BUFFERS 
07 18 AGB OFS SOBGTR IBFSC. VaBUF CRG). 108° . IF WE’ Havent T FINISHED NBUF BFRS 
; NBUF BUFFERS HAVE BEEN FILLED OR EMPTIED. STOP SWEEP 
_USW+1(R6) =; SET STOP BIT IN USW 
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189 599 
189 600 108: REMOVE BFR FROM DEV. Q LOAD INTO USW, AND INSERT INTO INUSE Q 
51 58 86 OF 189 601 REMQUE @1BFSL _DEVQFL (R65 ,R ; REMOV & FROM HEAD OF DEVICE QUEUE 
06 C 01BD 6 : BVC HAVE ONE 
4C A601 AA 18 ; ; Bi cw tos M_USWSET, went eB ; NONE IN Q. CLEAR BIT FOR RLSBUF 
0078 30 if8 go 20$: BSBW cyt ADIND : CONVERT ADDRESS IN R1 TO INDEX IN RO 
49 a6 650090 1¢8 606 MOVB IBFSW. swe + LOAD USW (THIS ALSO CLEARS DONE BIT) 
64 B6 61 OF gice 607 INSQUE ith alBFS$i_ TNUOSE CRG) : INSERT IN TAIL OF INUSE QUEUE 
bbe 609 40$: ; IF THIS IS THE FIRST AST (REQUEST STARTED) DON'T PUT A BUFFER 
9100 610 : ON THE USER QUE 
03 4C AB «001Ssé 100 611 6BCS  -#FLG_V_SWPSTRTD, IBFSW_FLAGS(R6),80$ ; BR. IF FIRST TIME THROUGH 
bibs $1 ; NOW REMOVE FROM HEAD OF INUSE QUEUE, INSERT ON TAIL OF USER QUEUE 
0105 614 AND CALL USER'S COMPLETION ROUTINE iF 1 ONE Was SPECIFIED. 
0105 615 sau GIVUSRB 
0108 616 
01D8 617 80$: RET 


(8) 
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SIDE EFFECTS: 
VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 


0040 
56 04 AC 00 


-ENTRY LPASSOVRAST, “M<R6> 
MOVL & (AP) ,R6 ; GET ADDRESS OF IBUF 
: REMOVE HEAD OF INUSE QUEUE, INSERT ON TAIL OF USER eVELE. 


SN NAA AA AAAA AA MIMI TUT 
MEW OOONOA UE WN O OONOUS WN O0Oan 


1p $19 a -SBTTL LPASSOVRAST = BFR OVER/UNDERRUN AST HANDLER 
43 ? 1 ; FUNCTIONAL DESCRIPTION: 
D9 «6 : : THIS ROUTING Is THe AST HANDLER FOR BUFFER OVER/UNDERRUN ASTS. 
D9 46624; PRIM wesees | T DOES THE FOLLOWING: 
D9 625; Peenove A BUFFER FROM HEAD OF INUSE QUEUE 
D9 «6 § : : INSERT THAT BUFFER INTO TAIL OF USER QUEUE 
D9 «66 : i, BUFFER 0 HAS BEEN RELEASED, THEN IT IS INSERTED INTO 
D9 «628; HEAD (') OF THE INUSE QUEUE. OTHERWISE, THE 
43 6 4 3 DOUBLE BUFFER OVERRUN BIT IS SET. 
d9 g 1 ; CALLING SEQUENCE: 
D9 «66 § ; 
0109 6 3 CALLS/G 
0109 634 ; 
0 44 ? 5 ; INPUT PARAMETERS: 
6 D9 835 ; IBUF (AP) ADDRESS OF IBUF ARRAY (AST PARAMETER) 
D9 638; 8 (AP) SAVED RO (UNUSED) 
0109 639; 12 (AP) SAVED R1 (UNUSED) 
0109 640; 16 (AP) SAVED PC (UNUSED) 
01D9 641; 20(AP) SAVED PSL (UNUSED) 
0109 otg 3 
0109 645 ; IMPLICIT INPUTS: 
0109 644; 
0109 645; VARIOUS FIELDS IN THE IBUF ARRAY 
01D9 646; 
8 44 3 OUTPUT PARAMETERS: 
01D9 ; NONE 
0109 3 
0109 3; IMPLICIT QUTPUTS: 
01D9 3 
0109 5 NONE 
01D9 3 
0109 ; COMPLETION CODES: 
0109 5 
01D9 : NONE 
01D9 ; 
01D9 3 
01D9 3 
01D9 3 
D9 ; 
D9 
D9 
DB 
DB 
st 
8 DF AND CALL USER’ : COMPLETION ROUTINE IF ONE Was SPECIF 
0065 30 DF BsBW | GIVUSRBFR : DOES IT A 
6 E MAKE et aries 0 HAS BEEN RELEASED. 

06 4C A604 £ asc V_BFRORLSD, IBF $W_FLAGS(R6) ,10$ ; BR. IF IT HAS BEEN 

4C A6 0 8 a4 FSW" FLAGS (R6) ; DBL BFR OVRN OCCURRED 


PAEAAAAAAAAAAA A AAA AA AAAA AAA AA AO 


Bist He: “he _DBFROVRN, IB 
BRB 208 ~ 


vB 


60 A6 


09 4C A6 
05 
49 A6 


68 A6 


0 
18 A é 
40 aF 


LPASSOVRAST = BFR OVER/UNDERRUN AST HAND 'S-SEp-toRG 91:43:79 
. soe le LARS GRO) TBP SLL TNUGFL CRE) 
Bg HAS ata mss gu 
MOVB = #*x407 BF SW USUe1 CRE) ; Sti $TOP 


68 
684 30S: RET 


AX/VMS Ragre V 
SUP.SRCJLABU 


PEROMAR: 1 


; BR. IF NOT COUNTING BFRS 
WE fiaveN N'T FINISHED NBUF BFRS 


BIT IN USW 
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} ¢ § F -SBTTL LPASSCMPLTAST = Q10 COMPLETE AST HANDLER 
: ? 3 3 FUNCTIONAL DESCRIPTION: 
1 690; THIS ROUTINE IS THE Q10 COMPLETE AST HANDLER. PRIMARILY, IT DOES 
4 691 ; THE FOLLOWING: 
1 635 : 1) UNDER CERTAIN CONDITIONS THERE IS AN EXTRA BUFFER TO BE PLACED 
01 693; ON THE USER QUEUE. IF THERE IS, A BUFFER IS REMOVED FROM THE 
01 694; HEAD OF THE INUSE QUEUE AND INSERTED ON THE TAIL OF THE USER QUEUE. 
0201 695; $3 IF THE USER SPECIFIED A COMPLETION ROUTINE, IT IS CALLED. 
0 4 $38 3 ) THE CHANNEL IS DEASSIGNED. 
§ 6} 698 ; CALLING SEQUENCE: 
$501 900 CALLS/G 
0201 701 ; 
8 + oe : INPUT PARAMETERS: 
0201 704 ; JOus CaP) ADDRESS OF IBUF ARRAY (AST PARAMETER) 
0201 705; (AP) SAVED RO (UNUSED) 
39) £06 : 12 (AP) SAVED R1 (UNUSED) 
0201 707; 16 (AP) SAVED PC (UNUSED) 
0201 708; 20(AP) SAVED PSL (UNUSED) 
0201 709 ; 
0201 710 ; IMPLICIT INPUTS: 
6504 711 ;: 
0201 ar 3 VARIOUS FIELDS IN THE IBUF ARRAY 
0201 713; 
0201 714 ; OUTPUT PARAMETERS: 
0201 715; 
0201 716 ; NONE 
0201 717 ; 
0201 718 ; IMPLICIT OUTPUTS: 
0201 719 ; 
bsp, 30 ; NONE 
0201 721; 
0201 38 3 COMPLETION CODES: 
0201 (23 3 
0201 724 ; NONE 
0201 725; 
0201 726; SIDE EFFECTS: 
0201 ist $ 
0601 8 : VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 
§ 6} 166 32° 
0201 731 
0040 0201 , ¢ ENTRY LPASSCMPLTAST, “M<R6> 
56 04 AC 00 0 03 ee MOVL 4(AP) ,R6 ; GET ADDRESS OF IBUF 
0207 736 3; WE HAVE AN EXTRA BUFFER IF THE STATUS IS NORMAL, BUFFER OVERRUN, 
0207 7 : OR NON-FATAL ERROR COUNT EXCEEDED (SAME AS BUFFER OVERRUN). 
00" 08 A6 861 7 £38 CMPW F$Q_10SB(R6) ,S*#SS$_NORMAL ; NORMAL STATUS? 
16 «13 0B 739 BEQL > YES 
0000'8F 08 A6 Bl 9p 740 CMPW IBF$Q_IOSB(R6) .#SS$_DEVREQERR ; REQUEST ERROR? 
11. «12 1 741 BNEQ ; NO, SO IT CAN'T BE EITHER OTHER ERROR 
A3 8F OD A6 91 15 742 CMPB IBF $Q_10SB+5(R6) , #BFROVRN BUFFER OVER/UNDERRUN? 


n 8 | 
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07 1A 763 EOL — 208 : YES | 
AO 8F OD Ag 44 CMP BE S0_10SB+5(R6) , ANFECEX ; NON-FATAL ERROR COUNT EXC.? | 
0 ? BNEQ $ 3; NO 
23 20S: ; HAVE AN EXTRA BUFFER TO PLACE ON USER QUEUE. REMOVE FROM HEAD 
48 : OF INUSE QUEUE, INSERT ON TAIL OF USER QUEUE, AND CALL USER'S 
74 COMPLETION UROUTING IF ONE WAS SPECIFIED. 
0021 30 ; £30 &sBu  GIVUSRBFR ; DOES IT ALL 
0226 136 40$ ; NOW CALL USER'S COMPLETION ROUTINE (POSSIBLY FOR THE SECOND TIME) 
0226 4675 : IF ONE WAS SPECIFIED. 
50 10 ag 09 6 6 134 MOVL FSL_COMPLADDR(R6),RO ; GET ADDRESS OF ROUTINE 
03 (1 A 755 BEQL + NONE SPECIFIED 
60 FB 0 : 136 CALLS  #0,(RO) > CALL IT 
O22F 758 50S: DEASSIGN CHANNEL 
O22F 759 $DASSGN N_S IBF $W_CHAN(R6) 
92 A 760 
04 023A 761 


| 
| 
| 
RET 
| 
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0 8 63 =~ .SBTTL CVTADINDX = CONVERT ADDRESS TO INDEX 
a 69 ; FUNCTIONAL DESCRIPTION: 
: ree ; THIS ROUTINE CONVERTS A BUFFER LINK ADDRESS TO A BUFFER INDEX 
: 189 ; CALLING SEQUENCE: 
8 771 : BSBW/B 
8 8 ; INPUT PARAMETERS: 
B 775: R1 ADDRESS OF BUFFER LINK 
8 4 76 ; R6 ADDRESS OF IBUF ARRAY 
0238 778 ; IMPLICIT INPUTS: 
0238 779; 
0 38 780 : NONE 
0238 781; 
0 38 18¢ ; OUTPUT PARAMETERS: | 
0238 te : RO CONTAINS BUFFER INDEX | 
0238 «785: | 
0238 786 : IMPLICIT OUTPUTS: | 
0238 787; | 
0238 788 ; NONE 
0238 789; 
0238 790 : COMPLETION CODES: 
0238 791; 
0238 792: NONE 
0238 793: 
0238 794 : SIDE EFFECTS: | 
0238 795: 
0238 796: NONE | 
0238 797; 
0238 798 :-- | 
0238 799 
0238 800 CVTADINDX: 
50 68 A6 9 0238 801 MOVAB IBFS$Q_BFRLNKS(R6),RO =; GET ADDRESS OF START OF BUFFER LINKS | 
50 51 50 C3 O23F 80 SUBL3 RO,R17RO : SUBTRACT THAT FROM GIVEN BFR LINK ADDR 
50 08 6 0245 803 DIVL #8,RO : DIVIDE BY 8 TO CONVERT TO INDEX | 


LPASBUFFER 
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-SBTTL GIVUSRBFR - GIVE USER BUFFER 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE REMOVE 
INSERTS IT ON THE T 
COMPLETION ROUTINE, 


THE HEAD OF THE INUSE QUEUE. 
att} AND CALLS THE USER*S 


CALLING SEQUENCE: 


BSBW/B 


INPUT PARAMETERS: 


R6 ADDRESS OF IBUF ARRAY 


IMPLICIT INPUTS: 


VARIOUS FIELDS IN THE IBUF ARRAY 


OUTPUT PARAMETERS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


COMPLETION CODES: 


NONE 


; SIDE EFFECTS: 


RO,R1 ARE NOT PRESERVED 
VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 


GIVUSRBFR: 


; REMOVE BUFFER FROM HEAD OF INUSE QUEUE 
REMQUE @IBFSL_INUCFL(R6) ,RO ; RO CONTAINS ADDRESS 
BVS 20$ ; QUEUE IS EMPTY = SHOULD NEVER HAPPEN! 


; INSERT BUFFER ON TAIL OF USER QUEUE 
INSQUE (RO) ,@IBFSL_USROBL(R6) 


; CALL USER'S COMPLETION ROUTINE IF ONE WAS SPECIFIED 
MOVL Eft St. EOMPLADOR CRG) JAG ; GET ADDRESS OF COMPLETION ROUTINE 
BEQL $ : NONE SPECIFIED 
CALLS #0, (RO) ; CALL IT 
20$: RSB 
LPASBFEND:: ; END OF BUF 


er ROUTINES (MAY BE USED 


F 
; TO LOCK THESE ROUTINES INTO THE 
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B | 
. PROCESS'S WORKING SET) | 
; 65 


LPASBUFFER 16-SEP-1984 4:42 VAX/VMS Macro V04-00 Page LPI 
Symbol table eit 8} £93: ‘9 YOSUP sre LABUFFER.MAR; 1 (3) | VvO0é 
BF ROVRN = 00000 AS LPASIGTBUF 000058 RG 
CLKEVFLG z 001 LPASINXTBF 86 RG 
CMT$B_EVMRKN ¢| LPASIWTBUF 4 RG 
CMT$B_ICHN ° A LPASRLSBUF 000013E RG 
CMT$B_INC 1 LPASRMVBUF 9 D RG 
CHISB-VBERRASK 6 poe = §0000001 
CMTSL-BFRADDR ait -DEVREQERR aeeeeree xX 
CMTSL~SFRLE 0 it SS$~NOR eeeeeere =X 
CMTSL_RCLADDR 0000014 SySSCLR REF eeeereee GX 
CMTSL-RCLLE $0 10 Sy SSDASEGN etererer GX 
CMT$L_USWADDR 44 0% SYSSSETAST eeeerere GX 8 
CMTS$W_DELAY 0 8 SYSSWAITFR atereeee 
CMTSW_DWELL OOO001E 
CMTSW_EVMRKM 08 ooes | 
CMTSW_MODE 000000 
CMTSW_NCHN 4 64 9h 
CMTSW~STWROM 000008 
00000091 R 02 
CVTADINDX 00000238 R 02 
DEFEVFLG = 00000016 
FLG_M_BFRORLSD = 00000010 
FLG_M_DBFROVRN = aad $i 
FLG_M_USWSET = 00000001 
FLG_V_BFRORLSD = 00000004 
FLG_V_CNTBFRS = 0000000 
FLG_V_DBFROVRN = saa 
FLG_V_SWPSTRTD = 00000001 
FLG V-USWSET = 0000000 
FoLCoGe 00000043 R 02 
GIVUSRBFR Te R 02 
IBF $B_EFN 00000 4 
IBF SL_CMDTBL 0000002 
IBF$L_COMPLADDR 00000010 
IBF S$L_DEVOBL 0000005C 
IBF SL_DEVOFL 
IBF $L— INUQBL 
IBF $L_ INUQFL 
IBF $L_LAMSKB 
IBF $L_LBUF 
IBF $L_NBUF 
IBF $L_USROBL 
IBF SL_USROFL 
IBF $Q_BFRLNKS 
IBF $Q_10SB 
IBF $Q- 10ST | 
IBF $W~ CHAN | 
IBF $W~FLAGS 
IBF $W"US 
Rey Brhoven | 
= j 
LPASSBFRAST RG 02 
LPASSCMPLTAST RG 0 
ASSOVRA RG 0 
PASBFEND RG 8 
LPASBF START RG 
LPASIBFSTS RG 0 


Heoct opnepets ~$Eb= 138% 8}:95:49 
teeeceecce wooceon+ 


! ; Psect synopsis ! 


seeeceece ese osaeun} 


PSECT name Allocation PSECT No. Attributes 

- ABS . 00000000 -)» 00 ¢ 0.) NOPIC “USR CON ABS LCL N 
SABSS$ QOOOO0A8 ( 168.) 1¢( 1.) NOPIC USR CON ABS LCL NOSHR 
_LPASCODE 00000258 (¢ 603.) 02 (¢ 2.) PIC USR CON REL LCL 


eet one emer nce ena emo nacae $ 


SHR 


AX/VMS Macro v04-00 
IOSUP.SRCJLABUFFER.MAR; 1 


EXE 


The working set Limit was 1200 pages 


There were 1 
995 source Lines were read in Pass 


Macro Library name 


$255$DUA28: (SYSLIBISTARLET.MLB; 2 


1, producing 
15 pages of virtual memory were used to define 14 macros. 


$uqoceceenceeeuesoessscaeseo 


Page faults CPU Time Elapsed Time 

Initialization 4 OF 80:88 - 08 00:00:00.93 
ponnene processing 139 00:00: 8-8 BO: 08 26-36 
155 00:00:03.25 00:00:07.09 

Symbol table sort 0 00:00:00.15 Bp? 89100 -¢f 
Pass 2 150 BP 288: 8) 86 00:00:03.63 

Symbol table output 7 00:00:00.07 00:00:00.28 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 490 00:00:06.06 00:00:14.57 


wow eee meme me meen eee een wn $ 


121 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/DISABLE=TRACE/LIS=LIS$:LABUFFER/OBJ=OBJ$:LABUFFER MSRC$:LADEF /UPDATE=(ENHS$:LADEF ) *MSRC$:LABUF FER/UPDATE=(ENH$:LABUF FER) 


18381 bytes (36 pages) of virtual memory were used to buffer the intermediate code. 
pages of symbol table space allocated to hold 111 non-local and $5 local symbols. 
object records in Pass 2 


Page (f 


phe NOEXE NORD oe eves BYTE 
EXE RD OVEC BYTE 
RD NOURT NOVEC LONG 


3 
2) 
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